;===========================================================================================
; Porgrama 8.b
;===========================================================================================
                absentry Entry
                
Rom     equ     $4000
Ram     equ     $1000

Code    equ     Rom
Data    equ     Ram

tstak   equ     100
Stack_f equ     Rom
Stack_i equ     Stack_f-tstak

Reset   equ     $fffe

; Stack Area Definition
        org Stack_i
Pilha   ds.b    Stack_f - Stack_i

; Interrupt Vector Definition
        org Reset
        dc.w Entry
        
; Data Definition
        org Data
        
m       ds.b    1
n       ds.b    1
s       ds.b    1

; Code Area
        org Code
Entry:
        lds #Stack_f
Main:
        
        
QuadSum:
        pshd
        pshx
        pshy
        
        
        
        puly
        pulx
        puld        


        end



















                                                               